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A family of date-handling functions was authorized 'at the 
83— i Jl meeting (p. 35 of minutes). I hope this; paper will get 
thejball rolling, even though its direction may well need 
considerable correction. I suggest handling tihree (main date 
formats. 1 



1. TtR-DAY and TEAR-DAT are inferred from lengths of 5 and 7 
using PIC 9 (l^S AGE DISPLAY) or X). [2- & 4-digit rs 

respectively]. : (The leftmost 2 digits of year, if omitted 
in an argument, are assumed to equal those of the, century 
in CURRENT-DATE.) ' 

i 

! ■ iV 

2. YR-MO-DA an'd TEAR-MO-DA are inferred similarly from 
[lengths of 6 and 8. "Year first" is the standard internal 
Gobol date sequence, and is also the ISO standard 
'sill-numeric date format. (Hyphens are the official ISO 
separators.) 

I i 

If a 6- or 8-digit date argument is in "customary" 
[American or European format, a parenthetical suffix to the 
Argument may be, used, e.g. "(MDY) M or " ( DMY ) " . 
^(Internally these would simply resequence the fields of 
'the argument before invoking the corresponding year-first 

function.) For symmetry the default suffix "(YMD)" may 
ialso be used. 



;If it is desired to have the value returned be in 
1 "customary" format, the four functions DA-MO-YR/YEAR and 
! MO-DA-YR/YEAR may be used. (Internally tfvey would simply 
j invoke YR/YEAR-MO-DA and resequence its ou'tput, just as 
•the "YR" functions simply invoke the "YEAR" functions and 
Ichop off their left two digits. These all spare the coder 
lithe trouble of having to do it himself.) 



3. ! ABS-DATE is inferred from PIC 9(9). (Or perhaps it could 
\ also^Jxe_JLnf eurred from the combination of 9(7) and a USAGE 
j Jof pJINARY or\ PACKED (to avoid confusion with format 1), 
si ifcfT'it "would rarely be used externally , and since this 
would allow storage in 3 bytes.) 

i'The absolute date for Jan. 1, 1990 is 2,447,893. Absolute 
date 0,000,001 was Jan. l f 4713 B.C. I attach a copy of a 
letter from Computerworld by Richard L. Conner containing 
more information on the absolute format. ((Conner has 
given me some tips on this paper.) The absolute format 
would be a useful base for users of Islamic & other 
non-Gregorian calendars to work with, as well as being the 
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most efficient method f or_W^ster ners who takgjjg(£^gQfftg£le 
to convert to it, so it should be allowed eve ^fefa?$£fH) not 
as common as the other two* 



■jNote that the modulus 7 of any absolute date, (plus 1, 

yields the day-of -the-week number returned by • 
) CURRENT-DATE. I've used the term "absolute", 'which is its 
name in astronomy, rather than "Julian", to avoid 
confusion in those shops that use the latter term as a 
synonym for YR-DAY. 



The date-format of the arguments is inferred, froni their 
length or data-class, as outlined above* Fortunately, they 
all differ. As mentioned, the- 6- and 8-digi ! t arguments may 
be qualified by "(DMY)" and "(MDY)". 1- 

Ij 

The first argument of all the 13 functions I 1 suggest may be 
in any of the three date formats mentioned above.. This 
symmetry should make things easy to remember. (Although it's 
not necessary to invoke a function to do date math on 
absolute dates, which can be added and subtracted directly, I 
suggest allowing such absolute arguments for symmetry.) 



Tpe argument(s) and the format' returned by the first' 9 
functions are indicated below. The functions* names indicate 
the values returned* 



Names 

/y|r-day~ 

tYiR-MO-DA 
UVBSnfiATE / 
PAYS.-FROM 
I'F-DATE 



Arg-l 



Arg-2 



Arg-3 



Any 6f 
the 
three 
date 

formats . 



"PLUS" 

or' 
"MINUS" J 



"TO'V 
<rel. oper,? 



9999 


thru 9 


days 


(option- 


ally 


signed) . 


Any i 


of the 3 


date 


formats * 



Returns 

9(5) [9(7) = -YEAR-DAY] 
9(G) [9(8) = YEAR-NO-DA ] 
9(9) 
S9(4) 

true or false 



[Or MO-DA-YR/YEAR or DA-MO-YR/YEAR . J 



Here are some examples. If only one argument is specified 
(as in the first six functions below), only a format 
conversion vithout addition or subtraction -is performed. The 
format of arguments is spelt out beneath or alongside them, 
in brackets. 



Function Args. 



1. YR-DAY (840201) 

[YR-MO-DA] 

2|. YR-MO-DA (84032) 

[YR-DAY] 



I 



Returns 
84032 

l 

4 

840201 



YR-DAY (000000001) [ABSJ . 9999999 

[I suggest such BC dates return 0 or all 9s — else dates 
will have to return a -leading space. or a minus.] 



II 
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4. 



5.' 



f 



■ 

{Function Args. 

ABS-DATE (19830101) 

( YEAR-MO-DA] 

ABS-DATE (83001) 

[YR-DAY] 



Returns 

1 

002445336 
002445336 
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7. 



ABS-DATE (2445336) [ABS] 002445336 
[Should this sort of thing be forbidden? 
— Args. of the' same format as the result, I mean.] 



Here are the 1st 3 functions- above, with 3 arguments; 
DAYS-FROM and IF-DATE always take 3 arguments 



il 



8;. 



YEAR-DAY (83362 PLUS 5) 

[YR-DAY] 

YEAR-DAY (83001 PLUS 1365.2524 * & 

[YR-DAY] '■ — ' 



1984002 



1988001 



[Expressions are OK in a numeric argument — useful. 
To avoid any ambiguity,. PLUS & MINUS in arg-2 are spelt out 



YR-H0-DA (.840101 MINUS 2) . 

[ YR-MO-DA j 



831230 



85034 



YR-DAY (840105 PLUS 395) 
[ YR-MO-DA ] 

[Extra day in leap year affected result.] 

11. DAYS-FROM (850203 TO 840105) -395 

[Both in YR-MO-DA] 
[Negative value returned since 2nd arg ; . is lower; 
Both args. must have same format else,' 9999 returned.] 



12l IF-DATE (84001 = 010184 (DMY) ) 

[YR-DAY] [DA-MO-YR ] 



true 



1 

4j fourth argument might be added (eventually, if necessary) 
to the functions above: VTOC IS <00-98> t where VT0C stands 
for "Virtual Turn of the Century". This would cause all 
dates with years below the VTOC year to be considered to be 



hjigher than the year ending in 99, A VTOC of 00 
coded as a 



could be 



oo a placeholdento indicate that it should .be modified 
a[t a future date, but^it would be ignored by the .compi ler . 
Bjy setting the VTOC to some year ahead of all dates in the 
iinput, the turn of the century could be "gotten around". 
A!ri thmetically lower but temporally higher 2-digit years in 
tjhe new century would be treated as higher by the function. 
A ( fter all dates in the input had moved into the new century 
jOso that arithmetic comparisons would return the desired 
{results again) the VTOC operand could be reset to 00. 



A book published a few months ago ( COMPUTERS tH C&CSIS 

WHICH l ' u BRW* TJ Tift MEP1«&-: 4773f|Ctftt * ROttf I?/ 

is devoted entirely to the mess the turn of the century 
xo.igoing to cause. It estimates the conversion cdst as being 



inMthe billions* If this VTOC argument could save a small 
percentage of that, it would be worth it. This i9 a much 
more modest proposal than the method I suggested last year, 
which would have retrofitted existing code with ^g§gjygrj 
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Thje last four functions, below, are the simplest. They can 
tajke only one argument, and what they return; is obvious from 
their names, ' 



Are-1 



Any of 
the 3 
date 
formats 



(99 (1-12) 



9 (1-7) 
99 (1-12) 



Returns 

99 (1-31) 
9 (1-7) 
A(9). 
A(9) 



Names 

• • 

d/Iys-in-month 

ftAY^NO 

Jday-name . 
m6ntii-name ; 

TJie coder can truncate DAY-NAME & MONTH-NAME 1 s returned , 
values to the length of his; target item. If he wants 
unequal-length abbreviations he can do it himself, later^ 
(0|r he can propose a fancier function to the CC. Or resubmit 
John Piggott's Picture symbol L, which truncates trailing 
spaces within a picture, so that the day of a month would 
a 1 



ways follow t,he month name with just one space.) 



The coder could achieve the effect of these !two NAME 
functions by defining and searching a table Jhimself , after 
converting the dates (if necessary) with one 'of the first 
three functions. But I think the directness of the NAUR 
functions is useful and stylistically OK. tf most common 
tasks could be identified and f unc t ional-ized , the language 
wbuld be higher level and coding would be largely a matter of 
snapping functional "boilerplate" together 9 . rather than 
traditional "programming". This is the "reusable code" idea, 
wl ich seems to be a coming thing. 

Even though there is some overlap in all these functions, it 
ii? better to have that and let the functions internally 
iinvoke one another (when necessary) than to squeeze such 
redundancy out and force the coder to nest his^func tions two 
or three deep, which defeats the purpose of. the higher level 
approach that functions give. (An example of such invocation 
ijs that the two MONTH functions above would: have %o invoke 
Yf*-HO-DA if their argument were a date in YR-DAY or absolute 
format, and the two DAY functions would have to invoke 
" ">S-DATE if not passed an absolute date argument.) 



